100 CALL CLEAR
110 RANDOMIZE
120 CALL SCREEN(2)
122 CALL CHAR(40,"0708111212110807")
124 CALL CHAR(41,"E0108808088810E0")
130 FOR I=1 TO 8
140 CALL COLOR(I,16,1)
150 NEXT I
160 CALL CHAR(111,"FFFFFFFFFFFFFFFF")
170 CALL CHAR(119,"FFFFFFE7997E7E3C")
180 CALL CHAR(118,"6666666666666666")
190 CALL CHAR(124,"6666E7E7")
200 CALL CHAR(135,"00003C5A425A5A18")
210 CALL CHAR(125,"01C3C367373E1C00")
220 CALL CHAR(126,"80C3C3E6EC7C3800")
230 CALL CHAR(143,"3C427E427E666666")
240 CALL CHAR(42,"0001555555550100")
250 CALL CHAR(43,"1551415555415115")
260 CALL CHAR(96,"80E0B88888B8E080")
270 CALL COLOR(9,11,1)
280 CALL CHAR(97,"FFFFFFFFFFFFFFFF")
290 CALL CHAR(98,"0103070F1F3F7FFF")
300 CALL CHAR(99,"80C0E0F0F8FCFEFF")
310 CALL CHAR(100,"FD83FFFFCFF19FFF")
312 CALL CHAR(101,"0102040810204080")
315 CALL CHAR(102,"8040201008040201")
317 CALL CHAR(103,"00000000000000FF")
320 CALL CHAR(104,"FFFFFFFFFFFFFFFF")
330 CALL CHAR(105,"7F3F1F0F07030100")
340 CALL CHAR(106,"FEFCF8F0E0C08000")
345 PRINT "      ef                     ef  e  f           ef      e  fe    f  ef     e  f    e"
347 PRINT "          fe  f   e    f  e                fge      fe  ": : : :
350 PRINT "  baac baac bac baac baaac    a    a  a  a  a  a   a      aac  a     a  aaaa   a   "
360 PRINT "  a    a ba  a  a      a      a    a  a  a  a      a      aaac aaaa bac a      a   ": : :
370 PRINT "                              BY LUCA BRENTARO () 1984": :
380 PRINT "      ":
390 DATA 523,587,659,784,659,587,659,587,523
395 RESTORE 390
400 FOR I=1 TO 9
410 READ K8(I)
420 NEXT I
430 FOR I=1 TO 30 STEP 2
435 CALL SOUND(-500,220,I,440,I,110*2*I/2,I)
440 NEXT I
450 CALL COLOR(10,13,11)
460 CALL CHAR(107,"FFE3FC9FF03FE3FF")
470 CALL CHAR(112,"FFFFFFFFFFFFFFFF")
480 CALL CHAR(113,"7F3F1F0F07030100")
490 CALL CHAR(114,"FEFCF8F0E0C08000")
500 CALL CHAR(120,"0010383E7EFFFFFF")
510 CALL CHAR(121,"00080C1C7EFFFFFF")
520 CALL CHAR(122,"0000000171FBFFFF")
530 CALL CHAR(123,"183C3E7E7FFFFFFF")
540 CALL COLOR(12,6,1)
550 CALL COLOR(11,6,11)
560 CALL CHAR(152,"FFEFD7A383C7EFFF")
570 CALL CHAR(153,"55AA55AA55AA55AA")
580 CALL COLOR(16,13,16)
590 CALL CHAR(136,"FFFFFFFFFFFFFFFF")
610 CALL CHAR(137,"0002004000000800")
620 CALL CHAR(144,"FFFFFFFFFFFFFFFF")
630 CALL COLOR(15,10,1)
640 DATA 262,246,220,246,262,330,262,330
650 CALL CHAR(128,"18817E1818242466")
660 CALL CHAR(129,"18007E99187EC300")
670 CALL CHAR(130,"FFFEFCF8F0E0C080")
675 RESTORE 640
680 FOR K=1 TO 8
690 READ K0(K)
700 NEXT K
710 A0=3
720 CALL COLOR(13,2,13)
730 PU=0
740 SC=0
750 CALL COLOR(15,1,1)
751 IF PU>0 THEN 760
755 PRINT :"    HIT ANY KEY TO BEGIN"
756 CALL KEY(3,K,S)
757 IF S=0 THEN 756
760 CALL CLEAR
770 SC=SC+1
780 IF SC=4 THEN 2530
781 CALL COLOR(14,10,11)
790 PRINT "             bc               bc      bac          "
800 PRINT "xyzbacyzyxbaczxyzbczxyppraaqppraaqppraqpphjaaijaaaaijaih"
810 PRINT "jaaaaihhhhhhhhjaaaihhhhhhhhhhhhhhhhhjaaaaahhhhhhhhhhhhhhhhhhhhhhhhhh"
820 PRINT "hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh"
830 PRINT "hhhhhhhhhhhhhhhhhhhhhhhhhh"
840 IF INT(SC/3)=SC/3 THEN 980
850 IF INT(SC/2)=SC/2 THEN 920
860 W7=7
870 W8=8
880 PRINT "ppppppppp              p       p       p SCORE p"
890 PRINT "             p       p         p";PU;TAB(28);"p";"             p       p"
900 PRINT "       p EGIPT p              p       pppppppppp"
910 GOTO 1030
920 PRINT "ppppppppp              p       p        p SCORE p"
930 PRINT "          p       p          p";PU;TAB(28);"p";"          p       p"
940 PRINT "        p EGIPT p             p       pppppppppp"
950 W7=6
960 W8=17
970 GOTO 1030
980 PRINT "ppppppppp               p       p      p SCORE p"
990 PRINT "           p       p         p";PU;TAB(28);"p";"          p       p"
1000 PRINT "         p EGIPT p             p       pppppppppp"
1010 W7=8
1020 W8=25
1030 CALL COLOR(15,1,1)
1040 A0=A0+5
1050 A1=0
1060 K1=0
1070 S1=104
1080 CALL COLOR(13,2,13)
1090 FOR I=1 TO A0
1100 B=INT(RND*24)+5
1110 A=INT(RND*3)+10
1120 CALL GCHAR(A,B,X)
1130 IF X<>104 THEN 1100
1140 CALL SOUND(-1000,262,20,392,10)
1150 CALL HCHAR(A,B,107)
1160 B=INT(RND*24)+5
1170 A=INT(RND*3)+10
1180 CALL GCHAR(A,B,X)
1190 IF X<>104 THEN 1160
1200 CALL SOUND(-1000,330,20,392,10,523,10)
1210 CALL HCHAR(A,B,152)
1220 NEXT I
1230 A=11
1240 B=4
1250 C=INT(RND*3)-1
1260 IF C=0 THEN 1250
1270 D=0
1280 CALL HCHAR(A,B,128)
1290 CALL KEY(3,K,S)
1300 IF K=68 THEN 1310 ELSE 1330
1310 D=1
1320 C=0
1330 IF K=83 THEN 1340 ELSE 1360
1340 D=-1
1350 C=0
1360 IF K=88 THEN 1370 ELSE 1390
1370 D=0
1380 C=1
1390 IF K=69 THEN 1400 ELSE 1420
1400 D=0
1410 C=-1
1420 A=A+C
1430 B=B+D
1440 CALL GCHAR(A,B,K)
1450 IF(K=S1)+(K=152)THEN 1480 ELSE 1460
1460 IF(K=130)+(K=111)THEN 2060
1470 IF(K=42)+(K=43)+(K=96)THEN 2260 ELSE 1590
1480 CALL HCHAR(A-C,B-D,S1)
1490 CALL HCHAR(A,B,128)
1500 K1=K1+1
1510 CALL SOUND(-200,110,20,165,20,K0(K1),10)
1520 CALL HCHAR(A,B,129)
1530 IF K=152 THEN 1540 ELSE 1550
1540 A1=A1+1
1545 CALL SOUND(-200,880,10,1660,10)
1550 IF A1=A0 THEN 1990
1560 IF K1=8 THEN 1570 ELSE 1290
1570 K1=0
1580 GOTO 1290
1590 CALL CHAR(129,"99423C1818FF8100")
1600 CALL SOUND(200,330,5,659,5)
1610 CALL CHAR(129,"00183C7E3C180000")
1620 CALL SOUND(200,294,5,587,5)
1630 CALL CHAR(129,"000000995A7E9900")
1640 CALL SOUND(200,262,5,523,5)
1650 CALL CHAR(129,"0000000000187EFF")
1660 CALL SOUND(200,247,5,494,5)
1670 CALL CHAR(129,"0000000000245AFF")
1680 CALL SOUND(500,220,5,440,5)
1690 CALL SOUND(1000,220,5)
1700 CALL SOUND(1000,220,5,440,5)
1710 CALL SOUND(1000,220,5,440,5,880,5)
1720 CALL SOUND(-1000,220,2,440,2,880,2)
1730 FOR I=1 TO 1000
1740 NEXT I
1750 CALL CLEAR
1760 CALL COLOR(13,11,1)
1770 CALL COLOR(12,7,1)
1780 CALL COLOR(14,16,1)
1790 CALL COLOR(11,10,1)
1800 PRINT " aaa a a aac   aac c a ac     a  aaa aac   aac aca aac    a  a a aac   aac aaa aaa ": : : :
1810 PRINT "                     }w~ }w~ }w~ }w~ }w~ }w~ }w~                      "
1820 PRINT " v   v   v   v   v   v   v   |   |   |   |   |   |   |  ": : : : : : :
1830 FOR I=1 TO 5
1840 CALL CHAR(125,"01C3C367373E1C00")
1850 CALL CHAR(126,"8CCCC4ECEC7C3C18")
1860 CALL SOUND(200,220,10)
1870 CALL CHAR(126,"80C3C3E6EC7C3800")
1880 CALL CHAR(125,"31332337373E3C18")
1890 CALL SOUND(200,165,10)
1900 NEXT I
1910 CALL SOUND(-1000,165,2,110,2,220,2)
1920 CALL SOUND(-1000,165,10,110,10,220,10)
1930 CALL SOUND(-1000,165,20,110,20,220,10)
1940 CALL SOUND(-1000,165,29,110,29,220,29)
1950 FOR I=1 TO 1000
1960 NEXT I
1970 CALL CLEAR
1980 GOTO 345
1990 CALL HCHAR(W7,W8,130)
2000 CALL HCHAR(W7,W8+1,111)
2010 CALL SOUND(-1000,110,10,165,10,220,10)
2020 CALL SOUND(-1000,220,20,330,20,440,20)
2030 CALL SOUND(-1000,440,29,659,29,880,29)
2040 A1=A1+1
2050 GOTO 1560
2060 CALL HCHAR(W7,W8,97,2)
2070 K1=0
2080 CALL HCHAR(A-C,B-D,S1)
2090 FOR I=1 TO 3
2100 CALL SOUND(-600,110*I,2,110*(I*2),10)
2110 CALL SOUND(-600,110*(I+12),10,110*(I*2+I),20)
2120 NEXT I
2130 CALL COLOR(13,15,2)
2140 S1=32
2150 A=19
2160 B=4
2170 D=0
2180 C=INT(RND*3)-1
2190 IF C=0 THEN 2180
2200 CALL COLOR(15,10,1)
2210 CALL HCHAR(A,B,128)
2220 CALL HCHAR(19,18,42)
2230 CALL HCHAR(19,19,43)
2240 CALL HCHAR(19,20,96)
2250 GOTO 1290
2260 FOR I=1 TO 10
2270 CALL COLOR(15,9,1)
2280 CALL SOUND(-1000,262,10,523,5)
2290 CALL COLOR(15,7,1)
2300 CALL SOUND(-1000,330,10,659,5)
2310 CALL COLOR(15,10,1)
2320 CALL SOUND(-1000,392,10,523,10)
2330 NEXT I
2340 CALL CLEAR
2350 CALL CHAR(62,"402010F8102040000")
2360 CALL CHAR(45,"0000003F")
2370 CALL SCREEN(5)
2380 PU=PU+100
2390 PRINT :"  ac aa ca cb ac   b aa aa    ac aa aa aa ac   a aa aa    aa aa aa aa ba   a aa aa  ": : : : : : :
2400 PRINT "      BONUS->100 PUNTI     ": : : :
2410 FOR I=0 TO 24 STEP 6
2420 CALL SOUND(-400,262,I+5,330,I+5,392,I+5)
2430 FOR K=1 TO 9
2440 CALL SOUND(90,K8(K),I)
2450 NEXT K
2460 NEXT I
2470 CALL SOUND(-1000,523,10,262,10,330,10)
2480 CALL CHAR(136,"FFFFFFFFFFFFFFFF")
2490 CALL COLOR(15,10,1)
2500 CALL CLEAR
2510 CALL SCREEN(2)
2520 GOTO 750
2530 CALL CHAR(136,"9900660099006600")
2540 CALL COLOR(14,16,11)
2550 CALL COLOR(13,8,1)
2560 E1=32
2570 A=4
2580 B=4
2590 C=1
2600 D=0
2610 SC=0
2620 PRINT " FINAL                                 STAGE "
2630 PRINT "                                                      "
2640 PRINT "         PUNTI                             ";PU
2650 PRINT "                                                     "
2660 PRINT "                                                     "
2670 PRINT "                                                      "
2680 PRINT "       *+`                                                           "
2690 CALL HCHAR(A,B,128)
2700 GOTO 1290
